package Catalyst::Plugin::HTMLClean;
use warnings;
use strict;


sub clean {
    my ($c, $htmlref) = shift;

    require HTML::Clean;
    my $h = HTML::Clean->new($htmlref);
    $h->strip;
    my $newref = $h->data;
    $$htmlref = $$newref;
    return;
}

1;
